home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_12 / extras / astronomy / obliq < prev    next >
Unknown  |  1988-12-06  |  1.6 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert Truevision Targa Graphic (image/tga) magic Supported
100% file data default
100% xdgMime image/x-tga default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 17 20 f4 20 20 | 20 2a 2a 20 20 3e 4f 42 |.... .  | **  >OB|
|00000010| 4c 49 51 20 20 2a 2a 0d | 00 14 06 20 db 0d 00 1e |LIQ  **.|... ....|
|00000020| 74 20 f1 27 27 8a 35 29 | 3b 22 54 68 69 73 20 72 |t .''.5)|;"This r|
|00000030| 6f 75 74 69 6e 65 20 63 | 61 6c 63 75 6c 61 74 65 |outine c|alculate|
|00000040| 73 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 74 |s the va|lue of t|
|00000050| 68 65 20 6f 62 6c 69 71 | 75 69 74 79 20 6f 66 20 |he obliq|uity of |
|00000060| 74 68 65 20 65 63 6c 69 | 70 74 69 63 20 66 6f 72 |the ecli|ptic for|
|00000070| 20 20 20 20 20 20 20 20 | 20 20 61 20 67 69 76 65 |        |  a give|
|00000080| 6e 20 63 61 6c 65 6e 64 | 61 72 20 64 61 74 65 2e |n calend|ar date.|
|00000090| 22 0d 00 28 06 20 3a 0d | 00 32 0e 20 de 20 46 4c |"..(. :.|.2. . FL|
|000000a0| 41 47 28 35 29 0d 00 3c | 10 20 f1 3a 46 4c 41 47 |AG(5)..<|. .:FLAG|
|000000b0| 28 30 29 3d 31 0d 00 46 | 21 20 f1 22 4f 62 6c 69 |(0)=1..F|! ."Obli|
|000000c0| 71 75 69 74 79 20 6f 66 | 20 74 68 65 20 65 63 6c |quity of| the ecl|
|000000d0| 69 70 74 69 63 22 0d 00 | 50 1a 20 f1 3a 46 4c 41 |iptic"..|P. .:FLA|
|000000e0| 47 28 35 29 3d 30 3a 46 | 4c 41 47 28 31 29 3d 30 |G(5)=0:F|LAG(1)=0|
|000000f0| 0d 00 5a 1f 20 e8 22 44 | 61 74 65 20 20 20 28 44 |..Z. ."D|ate   (D|
|00000100| 2c 4d 2c 59 29 22 3b 44 | 59 2c 4d 4e 2c 59 52 0d |,M,Y)";D|Y,MN,YR.|
|00000110| 00 64 17 20 f2 4f 62 6c | 69 71 3a 58 3d 45 50 53 |.d. .Obl|iq:X=EPS|
|00000120| 3a 53 57 31 3d 31 0d 00 | 6e 0c 20 f2 4d 69 6e 73 |:SW1=1..|n. .Mins|
|00000130| 65 63 0d 00 78 3d 20 f1 | 20 22 54 68 65 20 6d 65 |ec..x= .| "The me|
|00000140| 61 6e 20 6f 62 6c 69 71 | 75 69 74 79 20 28 44 2c |an obliq|uity (D,|
|00000150| 4d 2c 53 29 3a 20 22 3b | 53 24 3b 22 20 22 3b 58 |M,S): ";|S$;" ";X|
|00000160| 44 3b 22 20 22 3b 58 4d | 3b 22 20 22 3b 58 53 0d |D;" ";XM|;" ";XS.|
|00000170| 00 82 06 20 f1 0d 00 8c | 18 20 e8 20 22 41 67 61 |... ....|. . "Aga|
|00000180| 69 6e 20 28 59 2f 4e 29 | 22 3b 41 4e 24 0d 00 96 |in (Y/N)|";AN$...|
|00000190| 18 20 e7 20 41 4e 24 3d | 22 59 22 20 8c 8d 44 50 |. . AN$=|"Y" ..DP|
|000001a0| 40 20 8b 20 e0 0d 00 a0 | 06 20 3a 0d 00 aa 0d 20 |@ . ....|. :.... |
|000001b0| dd f2 4d 69 6e 73 65 63 | 0d 00 b4 1d 20 e7 20 53 |..Minsec|.... . S|
|000001c0| 57 31 3d 31 20 f2 4d 69 | 6e 73 65 63 5f 49 6e 74 |W1=1 .Mi|nsec_Int|
|000001d0| 65 67 65 72 73 0d 00 be | 1d 20 e7 20 53 57 31 3d |egers...|. . SW1=|
|000001e0| 2d 31 20 f2 4d 69 6e 73 | 65 63 5f 44 65 63 69 6d |-1 .Mins|ec_Decim|
|000001f0| 61 6c 0d 00 c8 06 20 e1 | 0d 00 d2 06 20 3a 0d 00 |al.... .|.... :..|
|00000200| dc 16 20 dd f2 4d 69 6e | 73 65 63 5f 49 6e 74 65 |.. ..Min|sec_Inte|
|00000210| 67 65 72 73 0d 00 e6 1d | 20 53 4e 3d b4 28 58 29 |gers....| SN=.(X)|
|00000220| 3a 58 50 3d 94 28 58 29 | 3a 58 44 3d a8 28 58 50 |:XP=.(X)|:XD=.(XP|
|00000230| 29 0d 00 f0 19 20 41 3d | 28 58 50 2d 58 44 29 2a |).... A=|(XP-XD)*|
|00000240| 36 30 3a 58 4d 3d a8 28 | 41 29 0d 00 fa 1c 20 58 |60:XM=.(|A).... X|
|00000250| 53 3d a8 28 28 41 2d 58 | 4d 29 2a 36 30 30 2b 30 |S=.((A-X|M)*600+0|
|00000260| 2e 35 29 2f 31 30 0d 01 | 04 0b 20 53 24 3d 22 2b |.5)/10..|.. S$="+|
|00000270| 22 0d 01 0e 16 20 e7 20 | 53 4e 3d 2d 31 20 20 8c |".... . |SN=-1  .|
|00000280| 20 53 24 3d 22 2d 22 0d | 01 18 06 20 e1 0d 01 22 | S$="-".|... ..."|
|00000290| 06 20 3a 0d 01 2c 15 20 | dd f2 4d 69 6e 73 65 63 |. :..,. |..Minsec|
|000002a0| 5f 44 65 63 69 6d 61 6c | 0d 01 36 0a 20 53 4e 3d |_Decimal|..6. SN=|
|000002b0| 2b 31 0d 01 40 21 20 e7 | 20 58 44 3c 30 20 84 20 |+1..@! .| XD<0 . |
|000002c0| 58 4d 3c 30 20 84 20 58 | 53 3c 30 20 8c 20 53 4e |XM<0 . X|S<0 . SN|
|000002d0| 3d 2d 31 0d 01 4a 22 20 | 58 44 31 3d 94 28 58 44 |=-1..J" |XD1=.(XD|
|000002e0| 29 3a 58 4d 31 3d 94 28 | 58 4d 29 3a 58 53 31 3d |):XM1=.(|XM):XS1=|
|000002f0| 94 28 58 53 29 0d 01 54 | 23 20 58 3d 28 28 28 28 |.(XS)..T|# X=((((|
|00000300| 58 53 31 2f 36 30 29 2b | 58 4d 31 29 2f 36 30 29 |XS1/60)+|XM1)/60)|
|00000310| 2b 58 44 31 29 2a 53 4e | 0d 01 5e 06 20 e1 0d 01 |+XD1)*SN|..^. ...|
|00000320| 68 06 20 3a 0d 01 72 0d | 20 dd f2 4a 75 6c 64 61 |h. :..r.| ..Julda|
|00000330| 79 0d 01 7c 12 20 e7 20 | 46 4c 41 47 28 31 29 3d |y..|. . |FLAG(1)=|
|00000340| 31 20 e1 0d 01 86 1a 20 | dd a4 49 54 47 28 57 29 |1 ..... |..ITG(W)|
|00000350| 3d b4 28 57 29 2a a8 28 | 94 28 57 29 29 0d 01 90 |=.(W)*.(|.(W))...|
|00000360| 20 20 4d 4e 31 3d 4d 4e | 3a 59 52 31 3d 59 52 3a |  MN1=MN|:YR1=YR:|
|00000370| 46 4c 41 47 28 31 29 3d | 31 3a 42 3d 30 0d 01 9a |FLAG(1)=|1:B=0...|
|00000380| 15 20 e7 20 59 52 31 3c | 30 20 8c 20 59 52 31 2b |. . YR1<|0 . YR1+|
|00000390| 3d 31 0d 01 a4 1c 20 e7 | 20 4d 4e 3c 33 20 8c 20 |=1.... .| MN<3 . |
|000003a0| 4d 4e 31 2b 3d 31 32 3a | 59 52 31 2d 3d 31 0d 01 |MN1+=12:|YR1-=1..|
|000003b0| ae 15 20 e7 20 59 52 3c | 31 35 38 32 20 8c 20 8d |.. . YR<|1582 . .|
|000003c0| 64 56 41 0d 01 b8 1d 20 | e7 20 59 52 3d 31 35 38 |dVA.... |. YR=158|
|000003d0| 32 20 80 20 4d 4e 3c 31 | 30 20 8c 20 8d 64 56 41 |2 . MN<1|0 . .dVA|
|000003e0| 0d 01 c2 25 20 e7 20 59 | 52 3d 31 35 38 32 20 80 |...% . Y|R=1582 .|
|000003f0| 20 4d 4e 3d 31 30 20 80 | 20 44 59 3c 31 35 20 8c | MN=10 .| DY<15 .|
|00000400| 20 8d 64 56 41 0d 01 cc | 1e 20 41 3d a8 28 59 52 | .dVA...|. A=.(YR|
|00000410| 31 2f 31 30 30 29 3a 42 | 3d 32 2d 41 2b a8 28 41 |1/100):B|=2-A+.(A|
|00000420| 2f 34 29 0d 01 d6 13 20 | e7 20 59 52 31 3c 30 20 |/4).... |. YR1<0 |
|00000430| 8c 20 8d 64 6a 41 0d 01 | e0 22 20 43 3d a8 28 33 |. .djA..|." C=.(3|
|00000440| 36 35 2e 32 35 2a 59 52 | 31 29 2d 36 39 34 30 32 |65.25*YR|1)-69402|
|00000450| 35 3a e5 20 8d 64 74 41 | 0d 01 ea 25 20 43 3d a4 |5:. .dtA|...% C=.|
|00000460| 49 54 47 28 28 33 36 35 | 2e 32 35 2a 59 52 31 29 |ITG((365|.25*YR1)|
|00000470| 2d 30 2e 37 35 29 2d 36 | 39 34 30 32 35 0d 01 f4 |-0.75)-6|94025...|
|00000480| 19 20 44 3d a8 28 33 30 | 2e 36 30 30 31 2a 28 4d |. D=.(30|.6001*(M|
|00000490| 4e 31 2b 31 29 29 0d 01 | fe 15 20 44 4a 44 3d 42 |N1+1))..|.. DJD=B|
|000004a0| 2b 43 2b 44 2b 44 59 2d | 30 2e 35 0d 02 08 06 20 |+C+D+DY-|0.5.... |
|000004b0| e1 0d 02 12 06 20 3a 0d | 02 1c 0c 20 dd f2 4f 62 |..... :.|... ..Ob|
|000004c0| 6c 69 71 0d 02 26 12 20 | e7 20 46 4c 41 47 28 35 |liq..&. |. FLAG(5|
|000004d0| 29 3d 31 20 e1 0d 02 30 | 0e 20 46 4c 41 47 28 35 |)=1 ...0|. FLAG(5|
|000004e0| 29 3d 31 0d 02 3a 18 20 | f2 4a 75 6c 64 61 79 3a |)=1..:. |.Julday:|
|000004f0| 54 3d 44 4a 44 2f 33 36 | 35 32 35 0d 02 44 2b 20 |T=DJD/36|525..D+ |
|00000500| 43 3d 28 28 28 2d 31 2e | 38 31 45 2d 33 2a 54 29 |C=(((-1.|81E-3*T)|
|00000510| 2b 35 2e 39 45 2d 33 29 | 2a 54 2b 34 2e 36 38 34 |+5.9E-3)|*T+4.684|
|00000520| 35 45 31 29 2a 54 0d 02 | 4e 1f 20 45 50 53 3d 32 |5E1)*T..|N. EPS=2|
|00000530| 2e 33 34 35 32 32 39 34 | 34 34 45 31 2d 28 43 2f |.3452294|44E1-(C/|
|00000540| 33 36 30 30 29 0d 02 58 | 1c 20 45 50 53 52 3d 45 |3600)..X|. EPSR=E|
|00000550| 50 53 2a 31 2e 37 35 34 | 33 32 39 32 35 32 45 2d |PS*1.754|329252E-|
|00000560| 32 0d 02 62 06 20 e1 0d | 02 6c 06 20 3a 0d 02 76 |2..b. ..|.l. :..v|
|00000570| 3d 20 f4 20 41 63 6b 6e | 6f 77 6c 65 64 67 65 6d |= . Ackn|owledgem|
|00000580| 65 6e 74 3a 20 41 53 54 | 52 4f 4e 4f 4d 59 20 57 |ent: AST|RONOMY W|
|00000590| 49 54 48 20 59 4f 55 52 | 20 50 45 52 53 4f 4e 41 |ITH YOUR| PERSONA|
|000005a0| 4c 20 43 4f 4d 50 55 54 | 45 52 0d 02 80 2b 20 f4 |L COMPUT|ER...+ .|
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005c0| 20 20 50 65 74 65 72 20 | 44 75 66 66 65 74 74 2d |  Peter |Duffett-|
|000005d0| 53 6d 69 74 68 0d 02 8a | 38 20 f4 20 20 20 20 20 |Smith...|8 .     |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 61 6d |        |     Cam|
|000005f0| 62 72 69 64 67 65 20 55 | 6e 69 76 65 72 73 69 74 |bridge U|niversit|
|00000600| 79 20 50 72 65 73 73 20 | 20 31 39 38 35 0d 02 94 |y Press | 1985...|
|00000610| 2d 20 f4 20 41 64 61 70 | 74 65 64 20 62 79 3a 20 |- . Adap|ted by: |
|00000620| 20 20 20 20 20 44 41 41 | 46 20 44 75 6c 77 69 63 |     DAA|F Dulwic|
|00000630| 68 20 44 65 63 20 31 39 | 38 38 0d ff             |h Dec 19|88..    |
+--------+-------------------------+-------------------------+--------+--------+